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-1)- 



.'ZMIN.CBL 

000001 IDENTIFICATION DIVISION. 

000002 PROGRAM-ID. ft^-v^^lE - Xti^^yp, 

000003 ENVIRONMENT DIVISION. 

000004 INPUT-OUTPUT SECTION. 

000005 FILE-CONTROL. 

000006 SELECT Tl - fe^^^jE^r-fA' ASSIGN TO SYS010-UT-MT-S. 
000008 SELECT Ol - &lEy T 4 ASSIGN TO SYS020-DA-DK-S. 

000010 DATA DIVISION. 

000011 FILE SECTION. 



000012 FD 

000013 01 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 

000022 FD 

000023 01 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 



T 1 - ft ^ ^ ^ jE :7 7 A- . 



05 


Tl - 




PIC X(l). 


05 


Tl - 




PIC X(6). 


05 


Tl- 




PIC X(30). 


05 


Tl- 




PIC 9(7). 


05 


Tl- 




PIC 9(7). 


05 


Tl- 




PIC 9(7). 


05 


Tl- 




PIC 9(7). 


05 


Tl- 


ftA5fe=»-K 


PIC X(5). 


Ol 







(1-2)- 



Ol 

05 
05 
05 
05 
05 
05 
05 
05 



Ol-ffi 0 °p=i — K 

oi-?mi 



pic xU). 

PIC X(6). 

PIC X(30). 

PIC 9(7). 

PIC 9(7). 

PIC 9(7). 

PIC 9(7). 
PIC X(5). 



000036 PROCEDURE DIVISION. 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 



(1-4)- 



OPEN INPUT Tl-^E^-v^^^IEy'T'f^ 

OUTPUT Ol-ft^-^^^^IE^r^^. 
PERFORM SE#-^**«EIEA;fJ*Qs3. 
PERFORM ^^M^Vho-^ 

UNTIL(^r-f/l^^T^y^ = '1'). 
CLOSE Tl-^^-e^^^IE^r-r/^ 
01-&^-v;*^|?iE:7t^K 
STOP RUN. 

000046**********************************************************- 

000047 M&tokM^hv — )\>. 

000048 PERFORM 3Etfe*a«. 

000049 PERFORM £j^**^IE 

000050*********************************************************^" 

000051 £*-^**^iEA;ft*Q ; &. 

000052 READ Tl - ft W-^^^lEyy^ ^ 

000053 AT END MOVE '1' TO 77^^177^ 

000054 END-READ. 

000055************************************************** 

000056 

000057 IF(T1-^,?£^S IS NUMERIC) AND 

000058 (Tl - 31 ^ ft IS NUMERIC) 

000059 THEN 

000060 MOVE Tl-ffiK^^teFjEl'a — K 

000061 TO 01-ftJ$-^*^IEl/n — K 

000062 PERFORM ^my*»^#J*^;**»iEffl;ti#tJi 

000063 END-IF. 

000064*********************************************************? 

000065 ^^yfmfr&mTXffclEmfitBim. 

000066 WRITE Ol -ft^-^^jEl^ — K. 

000067 END PROGRAM aEJ*-e**j*IE - A^J^S"*. 
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(1-6)- 



(1-7)- 



JC1-8)- 
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T7tMV^:ZMULCBL 

000001 IDENTIFICATION DIVISION. 

000002 CLASS-ID. «E*^^jE UI INHERITS CBL-BASE. 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. 

000007 CLASS &Rr?X?jlKE FILE IS 'ZMFL' 

000008 IDENTIFICATION DIVISION. 

000009 CLASS-OBJECT. 

000010 DATA DIVISION. 
000011 

000012* 9y^W& 
000013*********** 3 

000014 WORKING-STORAGE SECTION 



I* 



"1(2- 



(1-1) 



(1-1) 
l)-> 



000015 01 


Tl 






"-(1-2) 


000016 


05 


Tl-&lffl£# 


PIC X(l). 


000017 


05 


Tl-fgj&^-K 


PIC X(6). 


(2-2)- 


000018 


05 


Tl-ffiifc* 


PIC X(30). 


000019 


05 




PIC 9(7). 




000020 


05 




PIC 9(7). 




000021 


05 




PIC 9(7). 




000022 


05 




PIC 9(7). 




000023 


05 


Tl — ftA3fc3— K PIC X(5). J 





000024 01 WT^ytf PIC X(l). 

000025 PROCEDURE DIVISION. 
000026****************************** 
000027* ty^JVvY 

000029 IDENTIFICATION DIVISION. 

000030 METHOD-ID. 'displayScreen'. 

000032 DATA DIVISION. 

000033 SCREEN SECTION. 

000034 01 aEKt^-X^lBB. 



"(2-3)- 



000035 05 LINE 3 COLUMN 10 

000036 05 LINE 3 COLUMN 24 

000037 05 LINE 4 COLUMN 10 

000038 05 LINE 4 COLUMN 24 

000039 05 LINE 5 COLUMN 10 

000040 05 LINE 5 COLUMN 24 

000041 05 LINE 6 COLUMN 10 

000042 05 LINE 6 COLUMN 24 

000043 05 LINE 7 COLUMN 10 

000044 05 LINE 7 COLUMN 24 

000045 05 LINE 8 COLUMN 10 

000046 05 LINE 8 COLUMN 24 

000047 05 LINE 9 COLUMN 10 

000048 05 LINE 9 COLUMN 24 

000049 05 LINE 10 COLUMN 10 

000050 05 LINE 10 COLUMN 24 

000051 05 LINE 11 COLUMN 40 

000052 05 LINE 11 COLUMN 24 

000053 PROCEDURE DIVISION. 

000054 DISPLAY ffiflN^HB B . 

000055 ACCEPT ^EM^^BB 

000056 EXIT METHOD. 

000057 END METHOD. 'displayScreen'. 
000058 



VALUE '%m&ft 
PICX(l)TO Tl-fckJ!IX#. 

VALUE 'fc-K : '. 

PIC X(6)TO Tl — SHrd^ — K. 

VALUE 'i&p B p£ : 

PIC X(30) TO Tl-ffiiPq*. 

VALUE '^ffij** : \ 

PIC 9(7) TO Tl 

VALUE '31a* : \ 

PIC 9(7) TO Tl-^l^ft. 

VALUE : 

PIC 9(7) TO Tl-$S&/k. 

VALUE : \ 

PIC 9(7) TO Tl -Xm&Ut, 

VALUE *f±A^-K: *. 

PICX(5)TO Tl-ftAjfea— K. 
VALUE '^-T : .'. 

PICX(l)TO WT???. 



(1-25) 
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000059****************************************** 

000060 IDENTIFICATION DIVISION. 

000061 METHOD-ID. 'uiMain'. 
000062****************************** 

000063 PROCEDURE DIVISION. 

000064 PERFORM UNTIL {WT 75?='!') 

000065 INVOKE SELF 'displayScreen' 

000066 INVOKE SELF changeModel' 

000067 END-PERFORM. 

000068 EXIT METHOD. 

000069 END METHOD 'uiMain'. 
000070 

000072 IDENTIFICATION DIVISION. 

000073 METHOD-ID. 'changeModel'. 
000074*********************************^^ 
000075 PROCEDURE DIVISION. 

000076 

000077 PERFORM &&fr?X*1£JEAJj9Bm, 

000078 PERFORM £il&&9=* % shx*-- >\s 

000079 EXIT METHOD. 
000080***************** 

000081 ^&#yi^>hp~ ;U. 

000082 PERFORM ^&*Q» 



"(2~4)- 



(1-4) 
(2-5)- 



T-U-5) 
1(2-6)- 



000084 &m^x?miEAt>&m. TT^V 6 ^ 

000085 CONTINUE. I ( 2 7 )~ > 
000086********************************************************^ 

000087 mm&L J<-(l-7) 

000088 IF (Tl IS NUMERIC) AND 

000089 (Tl-^l^l: IS NUMERIC) (2"8)" 

000090 THEN 

000091 PERFORM ^y?ffi^&m^*#&fc&t}®M 

000092 END-IF. 



000093******************************************' 

000094 ^^m^m-?xm*Ettit)!?m. 

000095 INVOKE feWr?^ FILE 'updateRecord' 

000096 USING Tl -&M-?*?&1EUz2— K 

000097 END-INVOKE. 

000098 END METHOD changeModel'. 

000099 END CLASS-OBJECT. 

000100 END CLASS &^*^IE UI. 



+-(1-8) 
(2-9)- 



r 



(i-i) 
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yy-itV^ :ZMOT.CBL 

000001 IDENTIFICATION DIVISION. 

000002 PROGRAM-ID. ft*-r^*iE-3B*W/7. 

000003 ENVIRONMENT DIVISION. 

000004 INPUT-OUTPUT SECTION. 

000005 FILE-CONTROL. 



000006 SELECT 'YX-^M^^yyA^ 

000007 ASSIGN TO SYS010-DA-DK-S. 

000008 SELECT Ol - tH^7 7 ^ 

000009 ASSIGN TO SYS020-UR-LP-S. 



000010 DATA DIVISION. 

000011 FILE SECTION. 

000012 FD Tl-tEMr^^yr^ BLOCK CONTAINS 35 RECORDS. 

000013 01 Tl-tEM-^^^— K. 



000014 


05 


Tl 


— Bj&=«— K 


PIC X(6). 


000015 


05 


Tl 




PIC X(30). 


000016 


05 


Tl 




PIC 9(7). 


000017 


05 


Tl 


-sis* 


PIC 9(7). 


000018 


05 


Tl 




PIC 9(7). 


000019 


05 


Tl 




PIC 9(7). 


000020 


05 


Tl 




PIC X(5). 



000021 FD Ol-ttiftyrJ^ LABEL RECORD OMITTED 

000022 REPORT IS S*-r^K 

000023 WORKING-STORAGE SECTION. 

000024 oi yyijvfe-jyy? pic x value *o\ 

000025 0 1 W - 0 ft PIC X(8). 

000026 REPORT SECTION. 

000027 RD &$r*X*Vxh CONTROLS ARE Tl K 



000028 PAGE LIMITS 66 LINES 

000029 HEADING 1 

000030 FIRST DETAIL 7 

000031 LAST DETAIL 56 

000032 FOOTING 66. 

000033 01 TYPE IS DETAIL. T(l~25) 

000034 05 LINE NUMBER IS 4. 

000035 10 COLUMN 10 PIC X(12) VALUE 'flN&a— K: 

000036 10 COLUMN 22 PIC X(6) SOURCE Tl-ffifiSi^—K. 

000037 05 LINE NUMBER IS 5. 

000038 10 COLUMN 10 PIC X(8) VALUE \ 

000039 10 COLUMN 18 PIC X(30) SOURCE Tl-f&q 1 ?.^. 

000040 05 LINE NUMBER IS 6. 

000041 10 COLUMN 10 PIC X(10) VALUE '^ftJ^S: \ 

000042 10 COLUMN 20 PIC 9(7) SOURCE Tl-ME**. 

000043 05 LINE NUMBER IS 7. 

000044 10 COLUMN 1 0 PIC X(8) VALUE ' 5 1 ^ ft: ' . 

000045 10 COLUMN 18 PIC 9(7) SOURCE Tl -31 ^ft. 

000046 05 LINE NUMBER IS 8. 

000047 10 COLUMN 10 PIC X(8) VALUE 

000048 10 COLUMN 18 PIC 9(7) SOURCE Tl-JBffi/K. 

000049 05 LINE NUMBER IS 9. 

000050 10 COLUMN 10 PIC X(12) VALUE '&3§£*ft: \ 

000051 10 COLUMN 22 PIC 9(7) SOURCE Tl-SMfrMt 

000052 05 LINE NUMBER IS 10. 

000053 10 COLUMN 10 PIC X(14) VALUE , ftA*="— K: '. 

000054 10 COLUMN 24 PIC X(5) SOURCE Tl-ftA^fea— K. 

000055 01 TYPE IS PAGE HEADING. 

000056 05 LINE NUMBER IS 2. 

000057 10 COLUMN 41 PIC X(18) VALUE '*** &gfrvW. 

000058 10 COLUMN 60 PIC X(16) VALUE '{SH ***'. 

000059 10 COLUMN 95 PIC X(8) SOURCE W— 0 ft. 

000060 01 TYPE IS CONTROL FOOTING Tl — SIpp 3 — K 

000061 NEXT GROUP NEXT PAGE. 
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000062 PROCEDURE DIVISION. 

000063 ±®m. 

000064 OPEN INPUT Tl-tE^^^T-i^ 

000065 OUTPUT Ol - tiJ^7r^/k 

000066 MOVE CURRENT-DATE TO W- H U. 

000067 INITIATE ^.^^])^h. 

000068 PERFORM tt^^^T^^Xti^M. 

000069 PERFORM ^♦ffr&^hp— A- 

000070 UNTIL (77^HT77^ = '1'). 

000071 TERMINATE fe^^U^k 

000072 CLOSE Tl-^^^^T^ 

000073 0\-\£f}7T^>^. 

000074 STOP RUN. 

000076 # J S : *ffrj£=i^hn— /V. 

000077 GENERATE £^-^?&Bg. 

000078 PERFORM ^-^^T^AT^S. 
000079********************************************************* 

000080 fe^X^ T-f^ A73&LS. 

000081 READ Tl-fti^77^ 

000082 AT END MOVE '1* TO 7r^H-777^ 

000083 END-READ. 

000084 END PROGRAM fe&-?X?{£sE-ffig;lti±). 
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V y =?- y ^ -Sim 7° o # 



^n^^^ife rZMUP.CBL 

000001 IDENTIFICATION DIVISION. 

000002 PROGRAM-ID. ft It i!£ 3E 

000003 ENVIRONMENT DIVISION. 

000004 INPUT-OUTPUT SECTION. 



I 



(1-10) 



000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 

000017 FD 

000018 01 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 

000030 FD 

000031 01 
000032 
000033 
000034 
000035 
000036 
000037 
000038 

000039 FD 

000040 01 
000041 
000042 
000043 
000044 
000045 
000046 



FILE-CONTROL. 

SELECT Tl - tEfc-**? 4 ^ 

ASSIGN TO SYS010-DA-DK-S 
ORGANIZATION LINE SEQUENTIAL. 
SELECT Ml-6$vX^7r^^ T(l-ll) 
ASSIGN TO SYS030-DA-DK-S 
ORGANIZATION LINE SEQUENTIAL^ 
SELECT M2-4f vx^7r^f^ 

ASSIGN TO SYS031-DA-DK-S 
ORGANIZATION LINE SEQUENTIAL. 
DATA DIVISION. 
FILE SECTION. 

Tl-ft*-r^#H3El/3-K. T ( 1 " 1 2 ) 

05 Tl - ^9IE# PIC X(l). 

88 Tl - ii AD VALUE '1'. 
88 Tl - 3E£f VALUE '2\ 
88 Tl-SJi VALUE *9\ 



T 1 - m p°p * 
Tl - * 
Tl - 31 £ * 

t i - m & Ms 
Tl-tfcA$fc=*-K 



05 Tl-ififpa-K 
05 
05 
05 
05 
05 
05 

Ml-ftS^^^7r^^ 
Ml-ftfvX^l/3-K. 

05 M1-Sd p p^K 

05 Ml-^p p p* 

05 Ml-SftSi 

05 M 1 - 51 3 a 

05 Ml-«tt^ 

05 Ml-i*S$l 

05 Ml-ttA^^-K 



PIC X(6). 
PIC X(30). 
PIC 9(7). 
PIC 9(7). 
PIC 9(7). 
PIC 9(7). 
PIC X(5). 



PIC X(6). 

PIC X(30). 

PIC 9(7). 

PIC 9(7). 

PIC 9(7). 

PIC 9(7). 
PIC X(5). 



(1-13) 



M2- &&'?Xf7T<</l'. 



05 


M 2 - 




K 


PIC X(6). 


05 


M 2 - 


PP 




PIC X(30) 


05 


M 2 - 






PIC 9(7). 


05 


M 2 — 


51 a * 




PIC 9(7). 


05 


M2- 


& a & 




PIC 9(7). 


05 


M 2 — 




it 


PIC 9(7). 



000047 



05 M2-ttA*a-K PIC X(5). 
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(3.^f^5f^o^©^ (D) 



01 



000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 

000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 



000085 ^ 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 



WORKING-STORAGE SECTION. 

oi imw*. 

05 W- bTs*? ^>a>^— PIC X(6) VALUE LOW-VALUE. 
05 W PIC X(6). 

05 yrJflsffltTyyyi pic x value 'o\ 

05 7r^(/^T7^2 PIC X VALUE *0\ 
05 feil^T^y^ PIC X VALUE '0'. 



"(1-14)- 



PROCEDURE DIVISION. 

OPEN INPUT Tl-ftJ>^**jE7r^ 

Mi-ftf^7r^u 
OUTPUT M2-^0.^r^7y^/U. 
PERFORM jEA#*&31. 
PERFORM IB&J»-r;**A*»«. 
PERFORM Hir^^ho— 

until m^wrvvf = '1'). 

CLOSE Tl-ffi*^?«SjE7r^ 

Mi-ftf^7r^ 

M2 - ffl^'^^TMVl'. 
STOP RUN. 



"(1-15)- 



IF(W-hy>if^^3>^r- = W— 
THEN 

PERFORM S^fem 
ELSE 

THEN 

perform ^^mm 

ELSE 

PERFORM hy^fi/Bls&m 

END-IF 

END-IF. 



■(1-16)- 



"(1-17)- 



IFCW-h^^if^^a^- = HIGH -VALUE) 
THEN 

MOVE '1' TO %m$h777? 
ELSE 

EVALUATE Tl~Wm.Kft 
WHEN Tl-JEfr 

PERFORM Sfr&S 

perform mum-?*? ait) t&m 

PERFORM IB&fiN^A^S&S 
WHEN Tl-fiiJSfe 

PERFORM g'JI^^S 
END-EVALUATE 

PERFORM tEW.-?*#&TEA?)®M 

END-IF. 
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000101 

000102 MOVE Ml-£j*-^^W=»— K 

000103 TO M2-^£^^l/^— K. 

000104 PERFORM ifaEtf^^UZjAML 

000105 PERFORM IB^E^^A^^a®. 



000107 by^^>3>^m. 

000108 IF Tl-itAD 

000109 THEN 

000110 PERFORM fefimm 

000111 PERFORM »£#^;**tiW#LJl. 

000112 END-IF. 

000113 PERFORM fflfc-r^fcjE A^J 



(1-18) 



************** 



000115 Hfr&a 

000116 MOVE Tl-ffip^ 
MOVE Tl-^« 
MOVE Tl-§l^» 
MOVE Tl-3g£/k 
MOVE Tl-Sip&tf j| 



000117 
000118 
000119 
000120 
000121 



(1-19) 



TO M2-^. 
TO M2-^aE«a. 
TO M2-3I^ft. 
TO M2-|8i&&. 
TO M2-StPSENtfl:. 
MOVE TlH±A$fc=»— K TO M2-ttA^fe=»— K. 
000122********************************^^ 

000123 iiflP&H. T(l~ 2 °) 

TO M2-S5p°d=i— K. 
TO M2-|^. 
TO M2-^ffi«ft. 
TO M2-3IS*. 
TO M2-3S&J&. 
TO M2-S4H&M. 



000124 
000125 
000126 
000127 
000128 
000129 
000130 



MOVE Tl-fS&rr-K 
MOVE Tl-Si 0 p o£ 
MOVE Tl-^S«i 
MOVE 
MOVE 

MOVE Tl-gifS£*a 



MOVE Tl-ttA$fc= 3 ~K TO M2-ttA$fe=»— K. 



(1-22) 



000132 »tt*^**ffl**ys. (1-21) 

000133 WRITE M2~S$^U3- K 

000134 INVALID MOVE '1' TO ^1^177^. 
000135********************************************* 

000136 fflffii&m. 

000137 PERFORM IBfttf -^^A^&SI. 

000139 &«^^«iEA^«ia. T(l-23) 

000140 READ Tl -4*^^tf]E77>f^ 

000141 AT END MOVE Y TO ^tMV^T^^/I 

000142 END-READ. 

000143 IF (77^111777^1 ='1') 

000144 THEN 

000145 MOVE HIGH-VALUE TO W-YyZSf&als*- 

000146 ELSE 

000147 MOVE Tl-W^- K 

000148 TO W-h7yf^'>3y^r- 

000149 END-IF. 

000151 la&^^^A^^a 

000152 READ Ml-ffiJ>^^7r^ 

000153 AT. END MOVE T TO 77^/^177^2 

000154 END-READ. 

000155 IF (77^777^2 = T) 

000156 THEN 

000157 MOVE HIGH-VALUE TO 

000158 ELSE 

000159 MOVE M1-Wd^K TO W— sr**3f— 

000160 END-IF. 

000161 END PROGRAM fcMrrXfftJE— ^y^^JEtf. 



'(1-24) 
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77^/1/* :ZMSR.CBL 

000001 IDENTIFICATION DIVISION. 

000002 PROGRAM-ID. figv^f iE-V-h. 

000003 ENVIRONMENT DIVISION. 

000004 INPUT-OUTPUT SECTION. 

000005 FILE-CONTROL. 



000006 SELECT Tl -tEM^Xf&jEyT't A" 

000007 ASSIGN TO SYS010-UT-MT-S. 

000008 SELECT Ol -Sfvx^f E77^f^ 

000009 ASSIGN TO SYS020-DA-DK-S. 

000010 SELECT SI - f f^r-f ^ 

000011 ASSIGN TO WORK001. 



000012 DATA DIVISION. 

000013 FILE SECTION. 



000014 FD 


Tl 




000015 01 


PIC X(70) 




000016 FD 


Ol 




000017 01 


PIC X(70). 




000018 SD 


si- 


-«f^77^K 




000019 01 


Sl- 




K. 


000020 


05 


Sl-^SE^ 


PIC X(l). 


000021 


05 


Sl-jg&^-K 


PIC X(6). 


000022 


05 




PIC X(30). 


000023 


05 


si-3L£«ft 


PIC 9(7). 


000024 


05 


S1-5IS* 


PIC 9(7). 


000025 


05 


S1-3S&& 


PIC 9(7). 


000026 


05 




PIC 9(7). 


000027 


05 


Sl-ttA5fe^-K PIC X(5). 



000028 PROCEDURE DIVISION. 

000029 SORT flB^r^ T(l~9) 

000030 ON ASCENDING KEY SI -^o b d^ — K | 

000031 USING Tl-&*v^^iEjE77'fA' 

000032 GIVING 01-Si-77>^§jE77-Y/l/. 

000033 STOP RUN. 

000034 END PROGRAM £^X^jE-y-K 
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{(2-1 



-10) 
10)- 



yy^itv^ : ZMFL.CBL 

000001 IDENTIFICATION DIVISION. 

000002 CLASS-ID. £ffi^**^IE FILE INHERITS CBL-BASE. 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. 

000007 INPUT-OUTPUT SECTION. 

000008 FILE-CONTROL. 

000009 SELECT Ml-&$v^77^^ 

000010 ASSIGN TO SYS030-DA-DK-I 

000011 ORGANIZATION INDEXED 

000012 ACCESS RANDOM 

000013 RECORD KEY Ml-(Sp° B 3-F. 
000014 

000015 IDENTIFICATION DIVISION. 

000016 CLASS-OBJECT. 

000017 DATA DIVISION. 

000018************************************************************** 

000019* 

000020********************************************************************* 
000021 FILE SECTION. 

000022 fd Mi-^m^^^yr-<^. T«~(l~13) 

(2-12) — 



<-(l-ll) 

«-(l-9) 
(2-11) — 



000023 01 


Ml 






000024 


05 


Ml- 




PIC X(6). 


000025 


05 


Ml- 




PIC X(30). 


000026 


05 


Ml- 




PIC S9(7). 


000027 


05 


Ml- 




PIC S9(7). 


000028 


05 


Ml- 




PIC S9(7). 


000029 


05 


Ml- 




PIC S9(7). 


000030 


05 


Ml - 




PIC X(5). 



000031 

000032 PROCEDURE DIVISION. 

000033********************************************************************* 

000034* 97X'*VyF 

000035********************************************************************* 

000036 IDENTIFICATION DIVISION. 

000037 METHOD-ID. 'updateRecord'. 

000038********************************************************************* 

000039 DATA DIVISION. 

000040 LINKAGE SECTION. 

000041 01 Tl-ftI"77^^jEU3-K. 

000042 05 T1-*Q;J&E# PICXU). 

000043 88 Tl-iiAD VALUE V. 

000044 88 Tl-Mfr VALUE '2'. 



r (2-14)- 



000045 




88 


Tl-fii]Rfc VALUE '9*. 


000046 


05 


Tl 


^ HP ^ K 


PIC X(6). 


000047 


05 


Tl 




PIC X(30) 


000048 


05 


Tl 




PIC 9(7). 


000049 


05 


Tl 




PIC 9(7). 


000050 


05 


Tl 




PIC 9(7). 


000051 


05 


Tl 




PIC 9(7). 


000052 


05 


Tl 




PIC X(5). 



<-(l-12) 
(2-13) — 



000053 

000054 WORKING-STORAGE SECTION. 

000055 01 ftmffiS&. 



05 W~b5yf?is3>*- PIC X(6) VALUE LOW-VALUE. 
05 PIC X(6). 

05 77^JMfT77^1 PIC X VALUE *0\ 

05 77^f/^T77^2 PIC X VALUE '0'. 

05 A^S^T?^ PIC X VALUE *0\ 



000056 
000057 
000058 01 
000059 
000060 
000061 
000062 

000063 PROCEDURE DIVISION USING 
000064 

000065 OPENI-O Ml~St-7^^77'f^. 

000066 PERFORM &0^*?0IE A ~h &J£. 

000067 PERFORM IB A t) 

000068 PERFORM Hiffia^hP — 

000069 CLOSE Ml-^i-7^^77^. 

000070 EXIT METHOD. 



'-(1-14) 



Ti- fiesta ^^^jEU3-k. 



r- 



(1-12) 
-(1-15) 
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-16) 



(1-17) 



00007 1********************************************************************* 

000072 H#T^>ha — /U&m. "]~«- (1 

000073 IF (W- b7>"f = W - * * * — ) 

000074 THEN 

000075 PERFORM 

000076 ELSE 

000077 PERFORM h7Vf ^i/gV^i 

000078 END-IF. 

000079************************************************************** 

000080 £ffc&§L 

000081 IF (W-h7>f ^">3V^- = HIGH-VALUE) 

000082 THEN 

000083 MOVE V TO &nfeT7y? 

000084 ELSE 

000085 EVALUATE Tl-J&IE^ 

000086 WHEN Tl - Hff 

000087 PERFORM lE&rfeJg 

000088 PERFORM £r & * v * * ffi 77 & J£ 

000089 WHEN Tl-fifllfc 

000090 PERFORM 

000091 END -EVALUATE 

000092 END-IF. 

000093************************************************************* 

000094 h7ls-?9 i/B>&m. T*~~ (1-18) 

000095 IF Tl - ii^D 

000096 THEN 

000097 PERFORM iiMS 

000098 PERFORM it flQ §r & ft * * Hi 3S . 

000099 END-IF. 

000100********************************************************************* 

oooioi H$T*aJl. T«-(l-19) 



(2-14 



000102 


MOVE 


Tl - 




TO 


Ml 


— $j pa . 


000103 


MOVE 


Tl - 




TO 


M 1 


-mama. 


000104 


MOVE 


Tl - 




TO 


Ml 


-31 S*. 


000105 


MOVE 


Tl - 




TO 


Ml 




000106 


MOVE 


Tl- 




TO 


M 1 




000107 


MOVE 


Tl- 


ttAft^-K 


TO 


Ml- 




000108*********************************************** 


000109 i 


£ tin *a S . 












000110 


MOVE 


Tl- 


^ n P D =« — K 


TO 


Ml- 




000111 


MOVE 


Tl- 


fiifi 


TO 


Ml 


— tf^ DO ^fe . 


000112 


MOVE 


Tl - 


3L&ftft 


TO 


Ml 




000113 


MOVE 


Tl - 


51 MS ft 


TO 


Ml 


-51 MS ft. 


000114 


MOVE 


Tl - 




TO 


M 1 




000115 


MOVE 


Tl - 


&$£fts 


TO 


Ml 




0001 16 


MOVE 


Tl - 


tfcAjfc=*-K 


TO 


M 1- 





(1-20) 



(1-21) 



r" 
r 
r 



(i 



0001 l 7 ******************************************************* ***********J^** 

000118 ii2jnfT&ft-^*?ffi7i*!m. 

000119 WRITE Ml-fe$v7^U3-F 

000120 INVALID MOVE *f TO 77/. 

000 121 ********************************************************************* 

000122 m&m^*?mt)!&m. T<~- d 

000123 REWRITE Ml-fii^^^W^-K 

000124 INVALID MOVE '1* TO fell*T77/. 

000125********************************************************************* 

000126 ffltfktQ>m. (1 

000127 DELETE Ml-ftl^^^a-h' 

000128 INVALID MOVE '1' TO ^111177/. 

000129******************************************************************-*-** 

000130 £ft^*?{£ IE ATI 

000131 MOVE Tl-Kfia-K 

000132 TO W-F7yf^^3V*- Ml-ifn^-K 

000133********************************************************************* 

000134 IS &ft-^*^A7JteS. 

000135 READ Ml-ft|vX^7r / f/l / 

000136 INVALID MOVE 'T TO 77^/^177^2. 

000137 IF (77-f/^T77^2 = '1') 

000138 THEN 

000139 MOVE HIGH-VALUE TO W - — 

000140 ELSE 

000141 MOVE Ml-j85i&=» — K TO W-"*'*** — 

000142 END-IF. 

000143 END METHOD 'updateRecord*. 

000144 END CLASS-OBJECT. 

000145 END CLASS £ft-^*?&5E FILE. 



-21) 

-22) 
-23) 



(1-24) 
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Control!er^7^©yjKv?MJJg3£ 
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(2-1) 



•(2-1) 



^r-TA^ZMVI.CBL 

000001 IDENTIFICATION DIVISION. 

000002 CLASS-ID. ffi«^x*{gIE view INHERITS CBL-BASE. 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. j+ 

000007 CLASS &1E controller IS 'ZMCN'. | 
000008 

000009 IDENTIFICATION DIVISION. 

000010 CLASS-OBJECT. 

000011 PROCEDURE DIVISION. 
000012********************************** 
000013* 9?*'*VyY 

000014********************************************************************* 

000015 IDENTIFICATION DIVISION. 

000016 METHOD-ID. 'create'. 

000017********************************************************************* 

000018 DATA DIVISION. 

000019 WORKING-STORAGE SECTION. 

000020 01 W-ffitf^^fltiE view OBJECT REFERENCE SELF. 

000021 PROCEDURE DIVISION. 

000022 INVOKE SELF 'CBL-NEW 

000023 RETURNING W - fiEJ*-v*<H£jE view. 

000024 INVOKE fefc^*9feTE controller 'create' 

000025 USING W-fflW^^iE view. 

000026 EXIT METHOD. 

000027 END METHOD 'create'. 

000028 END CLASS-OBJECT. 
000029 

000030 IDENTIFICATION DIVISION. 

000031 OBJECT. 

000032 DATA DIVISION. 

000033********************************************************************* 
000034* 4>X9>?&%L 

000035********************************************************************* 



000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 



WORKING-STORAGE SECTION. 
01 Tl-&J*^**teiEU'=»— K. 



05 Ti-^ag:^ 

05 Tl-ffifp3— K 

05 Tl-ffi&& 

05 Tl-^ffi«4 
05 
05 

Tl-S«E«4 



PIC X(l) PROPERTY NO SET. 
PIC X(6) PROPERTY NO SET. 
PIC X(30) PROPERTY NO SET. 
PIC 9(7) PROPERTY NO SET. 
PIC 9(7) PROPERTY NO SET. 
PIC 9(7) PROPERTY NO SET. 
PIC 9(7) PROPERTY NO SET. 



01 



05 

05 Tl -ttAfca— K PIC X(5) PROPERTY NO SET. 
WT7*7# PIC X(l) PROPERTY NO SET. 



(2-2) 
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000047 PROCEDURE DIVISION. 
000048*************************^^ 
000049* 4ls*#>**WyY 
000050************************^^ 

000051 IDENTIFICATION DIVISION. 

000052 METHOD-ID. 'displayScreen. 
000053***************************** 

000054 DATA DIVISION. : *~ ^ } ~~ 

000055 SCREEN SECTION. 

000056 01 g . 
05 LINE 3 COLUMN 10 VALUE 'felE^ : _'. 

3 COLUMN 24 PIC X(l) TO Tl-^LSE^ 

4 COLUMN 10 VALUE 'ffifia— K 

4 COLUMN 24 PIC X(6) TO Tl 

5 COLUMN 10 VALUE 1p p p« 



000057 
000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 



05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 



LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 
LINE 



5 COLUMN 24 PIC X(30) TO Tl-ffiiBA. 

6 COLUMN 10 VALUE 'fLfiE** : 

6 COLUMN 24 PIC 9(7) TO Tl- "%L1$M% 

7 COLUMN 10 VALUE '91 MS* : 

7 COLUMN 24 PIC 9(7) TO Tl-§l^*. 

8 COLUMN 10 VALUE : 

8 COLUMN 24 PIC 9(7) TO 

9 COLUMN 10 VALUE '£*fi£«* 



9 COLUMN 24 PIC 9(7) TO T1-X*ME**. 
LINE 10 COLUMN 10 VALUE '{±A3te=i— K: 
LINE 10 COLUMN 24 PIC X(5) TO 
LINE 11 COLUMN 40 VALUE 'ffel 
LINE 11 COLUMN 24 PIC X(l) TO 

000075 PROCEDURE DIVISION. 

000076 DISPLAY B . 

000077 ACCEPT fe^^M B . 

000078 EXIT METHOD. 

000079 END METHOD. 'displayScreen\ 

000080 END OBJECT. 

000081 END CLASS feWr*7s#WlE view 



(2^3) 



r 



(2-1) 
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^TMV^iZMCN.CBL 
000001 IDENTIFICATION DIVISION. 



r 



r 



000002 CLASS-ID. &M^X*&JE controller INHERITS CBL-BASE. 1 " 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. T / t 

000007 CLASS r ^iE view IS 'ZMVI\ | *~ (2-1) 

000008 CLASS model IS 'ZMMD' 
000009 

000010 IDENTIFICATION DIVISION. 

000011 CLASS-OBJECT. 

000012 PROCEDURE DIVISION. 

0000 1 3**********************************************= 
000014* 

000016 IDENTIFICATION DIVISION. 

000017 METHOD-ID. 'create'. 
000018************************************^ 

000019 DATA DIVISION. 

000020 LINKAGE SECTION. 

000021 01 L-^EJE^^jE view OBJECT REFERENCE £jfc-e**tfjE view ONLY. 

000022 WORKING-STORAGE SECTION. 

000023 01 W-tE^^miE controller OBJECT REFERENCE SELF. 

000024 PROCEDURE DIVISION USING L-ffl*^X*t£iE view. 

000025 INVOKE SELF 'CBL-NEW* 

000026 RETURNING W-^^^BUc controller. 

000027 SET 0-&g^**^jE view OF W-&^:*^iE controller 

000028 TO L-&^^^jEview. 

000029 INVOKE &&^X<?igiE model 'create' 

000030 USING 0-£#-^**^iEview OF W-^E^^^^jE controller 

000031 RETURNING O — fe&.^r^'Pf^lE model OF W-£^;*^iE controller. 

000032 INVOKE W-£^*^IE controller 'uiMain'. 

000033 EXIT METHOD. 

000034 END METHOD create'. 

000035 END CLASS-OBJECT. 
000036 

000037 IDENTIFICATION DIVISION. 

000038 OBJECT. 

000039 DATA DIVISION. 

000041* -IVX^X^^C 

000042**************************************************************************************** 

000043 WORKING-STORAGE SECTION. 

000044 01 O-tEm^^&iE controller. 

000045 05 O-tE&^^lE view OBJECT REFERENCE fejfc-^^gFjE view ONLY PROPERTY. 

000046 05 0-£J^*^jE model OBJECT REFERENCE tEM^^ (^3E model ONLY PROPERTY. 
000047 

000048 PROCEDURE DIVISION. 

000050* -o^>-^^y^K 

000052 IDENTIFICATION DIVISION. 

000053 METHOD-ID. 'uiMain'. 
000054*************************************************************************************** 5 * 

000055 PROCEDURE DIVISION. 

000056 PERFORM UNTIL (HT77^ OF O-ffig-^^jE view = V) 

000057 INVOKE 0-teMr?*#fe IE view 'display Screen* 

000058 INVOKE O-feMrr^ffelE model changeModel' 

000059 END-PERFORM. 

000060 EXIT METHOD. 

000061 END METHOD uiMain*. 

000062 END OBJECT. - 

000063 END CLASS tEM^Xfi&lE controller. y (2-1) 



(2-4) 
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yyiJVZy -.ZMMD.CBL 

000001 IDENTIFICATION DIVISION. 

000002 CLASS-ID. fiEJS^^ftiE model INHERITS CBL-BASE. «- 12-1J 

000003 ENVIRONMENT DIVISION. 1 ~ 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. 

000007 CLASS ffiffi-e^^IE view IS 'ZMVI'. T<— (2-1) 

000008 CLASS ffitf^^^IE session IS 'ZMSS'. 
000009 

000010 IDENTIFICATION DIVISION. 

000011 CLASS-OBJECT. 

000012 PROCEDURE DIVISION. 

000013*********************************************** 
000014* $=7^WyY 

000015********************************************************************* 

000016 IDENTIFICATION DIVISION. 

000017 METHOD-ID. 'create'. 

000018********************************************************************* 

000019 DATA DIVISION. 

000020 LINKAGE SECTION. 

000021 01 L-fet^^flFIE view OBJECT REFERENCE ffiJS-^^IE view ONLY. 

000022 01 L-fcK^X^tflE model OBJECT REFERENCE SELF. 

000023 WORKING-STORAGE SECTION. 

000024 01 W-fflS-^^jE model OBJECT REFERENCE SELF. 
000025 

000026 PROCEDURE DIVISION USING L-feft^^^IE view 

000027 RETURNING L-ftK^^^^iE model. 

000028 INVOKE SELF 'CBL-NEW' 

000029 RETURNING W-ffiff-^^iE model. 

000030 SET O-ffift-^-^^IE view OF W -j£&.^^?{&iE model 

000031 TO L — fiEJS^^tfjE view. 

000032 SET L-^EJ^-^^jE model TO W-ffiff-^^ftiE model. 

000033 EXIT METHOD. 

000034 END METHOD create'. 

000035 END CLASS-OBJECT. 
000036 

000037 IDENTIFICATION DIVISION. 

000038 OBJECT. 

000039 DATA DIVISION. 

000040********************************************************************* 
000041* -O^^SSc 

000042********************************************************************* 

000043 WORKING-STORAGE SECTION. 

000044 01 Tl-ffi0-^^<giEU'=i— K. 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 

000053 01 O-fiEJS^^teiE view OBJECT REFERENCE ftH^**#jE view ONLY. 

000054 01 0-tEM-**#&jE session OBJECT REFERENCE tE&^^^lE session ONLY. 
000055 



05 


Tl 




PIC X(l). 


05 


Tl 




PIC X(6). 


05 


Tl 




PIC X(30). 


05 


Tl 




PIC 9(7). 


05 


Tl 




PIC 9(7). 


05 


Tl 


-aft* 


PIC 9(7). 


05 


Tl 




PIC 9(7). 


05 


Tl 




PIC X(5). 
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000056 PROCEDURE DIVISION. 

000057************************************************^ 
000058* ^Ts^Ts-^JvY 
000059*********************************** 

000060 IDENTIFICATION DIVISION. 

000061 METHOD-ID. 'changeModel'. 

000062********************************************************************* 
000063 PROCEDURE DIVISION. 
000064 

000065 PERFORM ^M^^Xll^M. 

000066 PERFORM WBkftM^sVv— /u. 

000067 EXIT METHOD. 

000068*********************************************************2 L 

000069 ^fefam^hv— /U. 

000070 PERFORM 

000071 PERFORM XflftM. 

000072********************************************************** 

000073 tE&^^Atj&m. T* 

000074 INVOKE SELF 'moveFromView'. 1 
000075********************************************************** 
000076 

000077 IF (Tl-^ft^ft IS NUMERIC) AND 

000078 (Tl - 31 m ft IS NUMERIC) 

000079 THEN 

000080 PERFORM ^ *y X*»JEaj3&m 

000081 END-IF. 

000082**********************************************************^ 



(2-5) 



(2-6) 



(2-7) 



(2-8) 



000083 
000084 
000085 
000086 
000087 



■(2-9) 



INVOKE tE^L-^^&WjE session 'create' 

RETURNING 0-tE&^X?{lgjE session. 
INVOKE O — ffi^-v'^^^iE session 'checkTransaction' 
USING Tl-fiE«"^^iBFjEU3 — K. 
000088 END METHOD 'changeModel'. 
000089 

000090********************************************************************* 

000091 IDENTIFICATION DIVISION. 

000092 METHOD-ID. 'moveFromView'. 

000093********************************************************************* 
000094 PROCEDURE DIVISION. 

OF 0-ft«-^^*jE view TO Tl-*a3ilX#. 
OF 0-&K-^**tfjE view TO Tl-jg?£n^ — K. 
OF 0-&&^X?{&jE view TO Tl-$!n a Q^. 
OF 0-*E*^**«fjE view TO Tl-^£j$ft. 
OF O-iE^^miE view TO Tl-^l^ft. 
OF 0-£J$-^^jE view TO 
OF O-ffi^-^^^^IEviewTO Tl-^i^^^ft. 
MOVE Tl-f±A3fe^ — K OF 0-£^*^IEviewTO Tl -tfcASfc^ — K. 
EXIT METHOD. 

000104 END METHOD 'moveFromView'. 

000105 END OBJECT. 

000106 END CLASS flEJt IE model. 



000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 



MOVE Tl-&il!K# 

MOVE T1~Sd°p^- K 

MOVE T1-Sd°p^ 

MOVE Tl-m&MM; 

MOVE Tl-§|^ft 
MOVE 

MOVE Tl-S^^ft 
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^r^^&rZMSS.CBL 

000001 IDENTIFICATION DIVISION. T 

000002 CLASS-ID. tEM^XfigJE session INHERITS CBL-BASE. I *~ 



CLASS CBL-BASE. y - n ^ 

CLASS feS-^^IE entity IS 'ZMEN'. U iU; 



000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. 
000007 

000009 IDENTIFICATION DIVISION. 

000010 CLASS-OBJECT. 

000011 PROCEDURE DIVISION. 

000012******************************************** 
000013* iry^-WyV 

000014********************************************************************* 

000015 IDENTIFICATION DIVISION. 

000016 METHOD-ID. create*. 

000017 DATA DIVISION. 

000018 LINKAGE SECTION. 

000019 01 L-SEBhT^tfjE session OBJECT REFERENCE SELF. 

000020 WORKING-STORAGE SECTION. 

000021 01 W-SEJt-r^&jE session OBJECT REFERENCE SELF. 

000022 PROCEDURE DIVISION RETURNING L-feK^^iE session. 

000023 INVOKE SELF 'CBL-NEW' 

000024 RETURNING W-&J(-^**tf IE session. 

000025 INVOKE ffiJ*^*^IE entity 'create' 

000026 RETURNING O-fflS^^ftlE entity OF W-SE^-^^fSjE session. 

000027 SET L-feJS-^^jE session TO W-ffi*^^^f*iE session. 

000028 EXIT METHOD. 

000029 END METHOD 'create'. 

000030 END CLASS-OBJECT. 
000031 

000032 IDENTIFICATION DIVISION. 

000033 OBJECT. 

000034 DATA DIVISION. 

000035********************************************************************* 
000036* -YV^^^S 

000037********************************************************************* 

000038 WORKING-STORAGE SECTION. 

000039 01 0-ftJ*-^;**<£jE entity OBJECT REFERENCE &Br?*#felE entity ONLY. 
000040 
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000041 PROCEDURE DIVISION. 



000043* ^v^v^-^y^K 

000044************************************ 

000045 IDENTIFICATION DIVISION. 

000046 METHOD-ID. 'checkTransaction'. 

000047 DATA DIVISION. 

000048 LINKAGE SECTION. 

000049 01 Tl-fflft^^IEl^—K 



000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 
000059 
000060 



05 



05 
05 
05 
05 
05 
05 
05 



T1-#L3E# PICX(l). 
88 Tl-iiAD VALUE V. 
88 T1-5E&T VALUE '2'. 
88 VALUE *9\ 



Tl — Sftpa^a 
Tl-31^* 

Tl-ttA3fe^-K 



PIC X(6). 

PIC X(30). 

PIC 9(7). 

PIC 9(7). 

PIC 9(7). 

PIC 9(7). 
PIC X(5). 



(2-13) 



000061 WORKING-STORAGE SECTION. 

000062 oi w-yr-ts^y—yy? pic x(i). 

000063 88 U=i— K*>«9 VALUE '1\ 

000064 88 U=i— K&L VALUE '0'. 

000065 T 

000066 PROCEDURE DIVISION USING Tl-ftJfc-e^tfEl^a—K 



•(2-13) 



000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082 
000083 



INVOKE O — fe&rrxflgJE entity 'recordExists' 

RETURNING W-yr^/U^y—yy^f. 
EVALUATE Tl-^HE^ 
WHEN T1-5£AD 

IF K*L 
THEN 

INVOKE O-fflS-^^IE entity 'up date Record' 
USING Tl-ft*v*^;EU=— K 

END-IF 

when n-Mff ri-nm 

IF U=3— Kfc«9 
THEN 

INVOKE O-fflS-^^IE entity 'up date Record' 
USING Tl-ftJ»^X^jEU=i— K 

END-IF 



END-EVALUATE. 
EXIT METHOD. 

000084 END METHOD 'checkTransaction'. 

000085 END OBJECT. 

000086 END CLASS ^EM^^i^JE session. 



r 
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^T^lV^iZMEN.CBL 

000001 IDENTIFICATION DIVISION. 

000002 CLASS-ID. £H^*£MBFjE entity INHERITS CBL-BASE. 

000003 ENVIRONMENT DIVISION. 

000004 CONFIGURATION SECTION. 

000005 REPOSITORY. 

000006 CLASS CBL-BASE. 
000007 

000008 IDENTIFICATION DIVISION. 

000009 CLASS-OBJECT. 

000010 PROCEDURE DIVISION. 
00001 I 

000012* Vy^-WyY 



r 



(2-10) 



000014 IDENTIFICATION DIVISION. 

000015 METHOD-ID. create'. 

000016 DATA DIVISION. 

000017 LINKAGE SECTION. 

000018 01 L-fett -e^^IE entity OBJECT REFERENCE SELF. 

000019 WORKING-STORAGE SECTION. 

000020 01 W-ffi*^^^^]E entity OBJECT REFERENCE SELF. 

000021 PROCEDURE DIVISION RETURNING L-^EJ*^^IE entity. 

000022 INVOKE SELF 'CBL-NEW* 

000023 RETURNING W-^EK^^^IE entity. 

000024 SET L-ffift^^^IE entity TO W— ft M- IE entity. 

000025 EXIT METHOD. 

000026 END METHOD 'create*. 

000027 END CLASS-OBJECT. 
000028 

000029 IDENTIFICATION DIVISION. 

000030 OBJECT. 

000031 ENVIRONMENT DIVISION. 

000032 INPUT-OUTPUT SECTION. 

000033 FILE-CONTROL. 
000034 
000035 
000036 
000037 
000038 



SELECT Ml-fi*^7r^ <— (2-11) 

ASSIGN TO "SYS030-DA-DK-r 
ORGANIZATION INDEXED 
ACCESS RANDOM 
RECORD KEY Ml-ffipp^-K 
000039 DATA DIVISION. 

000040************************************ 
000041* 

000042********************************************************************* 

000043 FILE SECTION. 

000044 FD 

000045 01 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 



Ml - fcM^^7T4 



05 
05 
05 
05 
05 
05 
05 



Ml-fgn"^— K 
Ml-ffip R p^ 



PIC X(6). 
PIC X(30). 
PIC S9(7). 
PIC S9(7). 
PIC S9(7). 
PIC S9(7). 



Ml-ttA^E^-K PIC X(5). 



(2-12) 



52/69 



m 52 

(11.:* ^T^Tjfyx^m #(1)) 

000054 PROCEDURE DIVISION. 

000055************ **************************************** 

000056* -^V ;y K 

0 00057***********************************************************' 

000058 IDENTIFICATION DIVISION. 

000059 METHOD-ID. 'recor dE xists* 

000060************ ****************************** *****************' 

000061 DATA DIVISION. 

000062 LINKAGE SECTION. 

000063 01 L-f$p p d3-K PIC X(6). 

000064 01 PICX(l). 

000065 88 Kfc«9 VALUE '1'. 

000066 88 Ua-K&L VALUE '0'. 

000067 PROCEDURE DIVISION USING L - ft p p a - K 

000068 RETURNING 

000069 OPEN INPUT M 1 - ft 0 ^ * * 7 7 -< ^ 

000070 MOVE L - ^ fa 3 — K TO M 1 - ft p p p =» - K . 

000071 READ M 1 - ft 

000072 INVALID 

000073 SET TO TRUE 

000074 NOT INVALID 

000075 SET un — K*>0 TO TRUE 

000076 END-READ. 

000077 EXIT METHOD. 

000078 END METHOD 'recordE xists\ 
000079 

000080***********************************************************' 

000081 IDENTIFICATION DIVISION. 

000082 METHOD-ID. 'updateRecord'. 

000083***********************************************************' 

000084 DATA DIVISION. 

000085 LINKAGE SECTION. 

000086 01 Tl-fetfv^^tlEU^-K. 

000087 05 Tl-mmfeft PIC X(l). 

000088 88 Tl-ilflP VALUE '1'. 

000089 88 T1-350T VALUE '2'. 

000090 88 Tl-8iJ6fe VALUE'9'. 

000091 05 Tl - ftpp^^-K PIC X(6). 

000092 05 Tl-ftp^.^ PIC X(30). 

000093 05 Tl-^S«t PIC 9(7). 

000094 05 Tl-3i^S PIC 9(7). 

000095 05 Tl-|§&,& PIC 9(7). 

000096 05 Tl-mm&&.M PIC 9(7). 

000097 05 Tl - ft A 5fc — K PIC X(5). 
000098 

000099 WORKING-STORAGE SECTION. 

000100 01 f^3£$g|i$ . 

000101 05 W-h7>f^^3y^- PIC X(6) VALUE LOW VALUE. 

000102 05 W - * # — PIC X(6). 

000103 01 77^. 

000104 05 77^^177^1 PIC X VALUE 'O'. 

000105 05 77^/HlT77^2 P IC X VALU E '0'. 

000106 05 jt!iillT77^ PIC X VALUE '0'. 
000107 

000108 PROCEDURE DIVISION USING Tl-fcJ*-^**«jEU'=»-K. 

000109 

000110 OPEN IO M1-SI?^^77^/V 

000111 PERFORM ft ®. ~? * 9 IE A f) & S . 

000112 PERFORM 10 ft M *v X ? A & M . 

000113 PERFORM S $t > h d — /U #i 3g . 

000114 CLOSE M 1 - ft i£ -7 ;* * 7 7 -f ^ 

000115 EXIT METHOD. 

000116***********************************************************' 

000117 Hr^^hn-^Jai. 

000118 IF (W-h7^f ^v/ay^r- = W - ^ * 9 *c — ) 

000119 THEN 

000120 PERFORM & $k & m 

000121 ELSE 

000122 PERFORM h 7 > IF ? v- a > & S 

000123 END -IF. 
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000125********************************************************** 

000126 &$t&m. 

000127 IF (W- h^^if ^Va>*- = HIGH-VALUE) 

000128 THEN 

000129 MOVE '1 ' TO mmt&T??? 

000130 ELSE 

000131 EVALUATE T1-^1E^ 

000132 WHEN T 1 - M £r 

000133 PERFORM Mff&S 

000134 PERFORM ff £ J$ ^ * -5? tfj tl & & 

000135 WHEN T 1 - ftj 1$ 

000136 PERFORM il^^i 

000137 END-EVALUATE 

000138 END-IF. 

000139********************************************************************* 

000140 brflF ^'>3>«ll. 

000141 IF Tl - ii^U 

000142 THEN 

000143 PERFORM 

000144 PERFORM 

000145 END-IF. 

000146********************************************************************* 



000147 














000148 


MOVE 


Tl 


— ffi OP %3 


TO 


M 1 


— f8l aa . 


000149 


MOVE 


Tl 




TO 


M 1 




000150 


MOVE 


Tl 


- 51 £ft 


TO 


M 1 


-51 £ ft. 


000151 


MOVE 


Tl 




TO 


Ml 




000152 


MOVE 


Tl 




TO 


M 1 




000153 


MOVE 


Tl 




TO 


M 1 - 


-ttA&a-K. 


000154************************************************* 


000155 














000156 


MOVE 


Tl 


- m A =» - K 


TO 


MI- 




000157 


MOVE 


Tl 


— pp 


TO 


NI 1 


— pp 4a • 


000158 


MOVE 


Tl 




TO 


M 1 




000159 


MOVE 


Tl 


-31*3 ft 


TO 


Ml 


-5l£ft. 


000160 


MOVE 


Tl 




TO 


Ml 


- & & £ . 


000161 


MOVE 


Tl 




TO 


M 1 




000162 


MOVE 


Tl 


-ttA5fe=i-K 


TO 


Ml- 


-ft A5te="-K. 



000163********************************************************************* 

000164 ilflPfcrflEJt-^^fflrtJ&a. 

000165 WRITE Ml-Sfv^^n-K 

000166 INVALID MOVE 'V TO & 31 T ^ ^ . 
0001 67********************************************************************* 

000168 %Tt£m-?*?mt>fam. 

000169 REWRITE M 1 - flE J$ ^ * * U =» — K 

000170 INVALID MOVE V TO ^iHT77^ 
000171********************************************************************* 

000172 g'JI^^S. 

000173 DELETE M 1 - t£ W- -r * ? U =» - K 

000174 INVALID MOVE '1* TO ^11^777^. 
0001 75********************************************************************* 

000176 &«t^^^tf jEA^*&31. 

000177 MOVE Tl-^p^^-K 

000178 TO W- h7Vf ^'>3>^r- M 1 - fSi n p o - K 
0001 79********************************************************************* 

000180 m&M^*? aji&m. 

000181 READ Ml-&^-7**^T-rA- 

000182 INVALID MOVE '1' TO 7r^^T77^2. 

000183 if = v) 

000184 THEN 

000185 MOVE HIGH-VALUE TO W--^***- 

000186 ELSE 

000187 MOVE Ml-ifiifpa-K TO W-^***— 

000188 END-IF. 

000189 END METHOD 'updateRecord'. 

000190 END OBJECT. 

000191 END CLASS i£^^*^iE entity. 
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Mil 



mm 



COBOL^n^i^ 



1 



(2)— rnmmn 

^PhIOO-COBOL 

y 102 
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ftl&OO-COBOL 




060 



102 : At) - fx-yVrfxipJJ* 



109:^mai^^D^A 
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061 



104 h^n^A 



C 



y-h 



32 y-F^r- 




3 



K162 



C 




h^y-yy^3>: 



310:Viewy^^. 




320 : Controllery-7^ 



330:Modeiy^ 



h^^ify-yg^ 
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064 




901 : mm - m^^o^A 



(SEQ) 
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□ P I 



•g|5P^iJ/J^f+ 




EI66 



(1) ^ff (*th- m^^P^^A901) 



c 



c 



-grtt-tt 



UX h£B±> 
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C 



C 



(2) -fr#J©*Vs/F 



(MM 



a pTpT 



368 



(1) 

T 1 "S 



IF NEW-BUMON NOT - OLD-BUMON OR EOF-FLG 
PERFORM BREAK-BUMON-RTN 
END- IF. 



IF NEW-TENCD NOT = OLD-TENCD OR EOF-FLG = 
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